Imports obout_ASPTreeView_Pro_NET
Imports ccapps.persistent.authorization
'Imports ccapps.persistent.laLocationDefine
Imports ccapps.persistent.common
Imports ccapps.persistent.RetantionActivate

Namespace Web.page

    Public Class TariffCompare_Giris
        Inherits [lib].BasePage

#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents TreeView As System.Web.UI.WebControls.Literal
        Protected WithEvents chk_a0 As System.Web.UI.WebControls.CheckBox
        Protected WithEvents ltlAlert As System.Web.UI.WebControls.Literal
        Protected WithEvents Repeater1 As System.Web.UI.WebControls.Repeater
        Protected WithEvents proc As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents userid As System.Web.UI.WebControls.TextBox
        Protected WithEvents username As System.Web.UI.WebControls.TextBox
        Protected WithEvents Txt1 As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents custcode As System.Web.UI.WebControls.TextBox
        Protected WithEvents msisdn As System.Web.UI.WebControls.TextBox
        Protected WithEvents Lblok As System.Web.UI.WebControls.Label
        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

        Public Sub ASPNET_MsgBox(ByVal Message As String)

            System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf)

            System.Web.HttpContext.Current.Response.Write("alert(""" & Message & """)" & vbCrLf)

            System.Web.HttpContext.Current.Response.Write("</SCRIPT>")

        End Sub


#End Region
        '    Public ilk_internalID As Integer = 0
        Dim button_add As Integer

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here

            ' Dim profnum As String = Page.Request.pa  Form.Item("proc")


            'Dim tmp1 As DataTable
            'tmp1 = ccapps.persistent.SmeStatuChange.customer_deactive()
            'If tmp1.Rows.Count > 0 Then
            '    Dim jb6 As New batchjobs.JOB6
            '    jb6.Deactive_customer_LA()
            'End If
            'Exit Sub

            'Dim jb6 As New batchjobs.JOB6
            'Dim res As String = jb6.RetantionActivates("050791#20070201112442", "0")
            'Dim sw As System.IO.StreamWriter
            'sw = System.IO.File.CreateText("c:\asp_job_log\okan.txt")
            'sw.WriteLine(res)
            'sw.Flush()
            'sw.Close()
            'Exit Sub


            If Not Page.IsPostBack Then
                If Request.QueryString("msisdn") <> "" Then Me.msisdn.Text = Request.QueryString("msisdn")
            End If

            Me.PageTitle = "TARIFF COMPARE"
            Me.HelpDocName = "retention.doc"
            ' default_tree()

            Dim Vproc As String
            Vproc = Me.proc.Value
            Me.proc.Value = ""

            If Vproc <> "" And Me.msisdn.Text = "" Then
                Message = "alert('MSISDN girmelisiniz ! ')"
                Exit Sub
            End If






            Select Case Vproc
                Case "devam"
                    Response.Redirect("TariffCompare_Define.aspx?msisdn=" & Me.msisdn.Text)
            End Select

        End Sub

    End Class

End Namespace